Preliminary OM and IM results

1. Import cleaned .csv file and look at dataframe.

cr.mat = cr.mat %>%
  mutate(om_w.v = (om_percent/100) * dry_bulk_density, na.rm = TRUE) %>%
  mutate(im_w.v = (im_percent/100) * dry_bulk_density, na.rm = TRUE)

colnames(cr.mat)

##  [1] "X"                         "otter_region"             
##  [3] "site"                      "latitude"                 
##  [5] "longitude"                 "core_letter"              
##  [7] "layer_number"              "layer_thickness"          
##  [9] "layer_volume"              "sample_volume"            
## [11] "pan_number"                "pan_weight"               
## [13] "pan_sed_ww_pre_60C"        "pan_sed_dw_post_60C"      
## [15] "dry_bulk_density"          "pan_sed_dw_pre_450C"      
## [17] "pan_sed_dw_post450C"       "crucible_weight"          
## [19] "crucible_sed_dw_pre_950C"  "crucible_sed_dw_post_950C"
## [21] "sed_ww_pre_60C"            "na.rm"                    
## [23] "sed_dw_post_60C"           "sed_dw_pre_450C"          
## [25] "sed_dw_post_450C"          "om_weight"                
## [27] "sed_dw_pre_950C"           "sed_dw_post_950C"         
## [29] "im_weight"                 "om_percent"               
## [31] "im_percent"                "om.im_ratio"              
## [33] "om_density"                "im_density"               
## [35] "core_depth"                "om_w.v"                   
## [37] "im_w.v"

2. Remove excess columns.

(e.g. pan + crucible data recorded prior to final calcualted weights)

# remove pan, crucible, and sediment combo weights not necessary for analysis
cr.mat = cr.mat %>% 
  select(-na.rm, -pan_number, -pan_weight, -pan_sed_ww_pre_60C, -pan_sed_dw_post_60C, -pan_sed_dw_pre_450C, -pan_sed_dw_post450C, -crucible_weight, -crucible_sed_dw_pre_950C, -crucible_sed_dw_post_950C, -sed_ww_pre_60C, -sed_dw_post_60C, -sed_dw_pre_450C, -sed_dw_post_450C, -sed_dw_pre_950C, -sed_dw_post_950C)


colnames(cr.mat)

##  [1] "X"                "otter_region"     "site"            
##  [4] "latitude"         "longitude"        "core_letter"     
##  [7] "layer_number"     "layer_thickness"  "layer_volume"    
## [10] "sample_volume"    "dry_bulk_density" "om_weight"       
## [13] "im_weight"        "om_percent"       "im_percent"      
## [16] "om.im_ratio"      "om_density"       "im_density"      
## [19] "core_depth"       "om_w.v"           "im_w.v"

3. Where are the processed cores from?

# new data frame for all cores
locations_all = cr.mat %>%
  distinct(cr.mat, latitude, longitude, site) %>%
  drop_na()

# map "locations_all"
leaflet(locations_all) %>%
  addTiles() %>%
  addMarkers(~longitude, ~latitude, popup = ~site, label = ~site)

4. Plotting

All sites

You will notice that site L06 is way different than the rest, so far. This core was loaded with chunky woody debris; it’s real data but an outlier compared to the other sites. Here are two images of the sliced core from site L06:

For the sake of looking at regional patterns, let’s remove site L06 until we have more sites processed:

cr.mat_noL06 = cr.mat[-c(1:30),] # remove L06 (for now) because organic matter is off the scale

Here are the data, by site, without L06:

Here are the data grouped by sea otter zone (witout L06)

It looks like the low sea otter zone has more organic matter in the sediments, and the mid sites have a nice range that tracks through depth. I’m looking forward to more replicates! It will also be great to have grain size analysis…hopefully some day.

OM and IM ratios: I just noticed that the depths for IM at one site are misaligned, meaning that the data were probably entered into the wrong lines. This will be looked into. In the mean time, it appears that the OM:IM ratio, across all sites, decreases with depth. Makes sense! Here, data are summarized across sites because the pattern looked similar across sites.

Plots of dry bulk density (DBD) of the sediment.

These are important to look at because it is used to calculate the OM and IM per volume. In the mean time, it also gives hints about the sediment type/quality; a higher DBD implies lower porosity and compaction.